home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libI77 / lio.h < prev    next >
C/C++ Source or Header  |  1992-05-07  |  820b  |  46 lines
  1. /*    copy of ftypes from the compiler */
  2. /* variable types
  3.  * numeric assumptions:
  4.  *    int < reals < complexes
  5.  *    TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
  6.  */
  7.  
  8. #define TYUNKNOWN 0
  9. #define TYADDR 1
  10. #define TYSHORT 2
  11. #define TYLONG 3
  12. #define TYREAL 4
  13. #define TYDREAL 5
  14. #define TYCOMPLEX 6
  15. #define TYDCOMPLEX 7
  16. #define TYLOGICAL 8
  17. #define TYCHAR 9
  18. #define TYSUBR 10
  19. #define TYERROR 11
  20.  
  21. #define NTYPES (TYERROR+1)
  22.  
  23. #define    LINTW    12
  24. #define    LINE    80
  25. #define    LLOGW    2
  26. #ifdef Old_list_output
  27. #define    LLOW    1.0
  28. #define    LHIGH    1.e9
  29. #define    LEFMT    " %# .8E"
  30. #define    LFFMT    " %# .9g"
  31. #else
  32. #define    LGFMT    "%.9G"
  33. #endif
  34. /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
  35. #define    LEFBL    24
  36.  
  37. typedef union
  38. {    short    flshort;
  39.     ftnint    flint;
  40.     real    flreal;
  41.     doublereal    fldouble;
  42. } flex;
  43. extern int scale;
  44. extern int (*lioproc)();
  45. extern int L_len;
  46.